Profile of (eval 263)[Sub/Quote.pm:3]

Filename	(eval 263)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 243 statements in 647µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
62	7	3	328µs	593µs	JSON::Schema::Modern::Document::canonical_uri
1	1	1	15µs	50µs	JSON::Schema::Modern::Document::BEGIN@8
1	1	1	12µs	26µs	Method::Generate::Accessor::_Generated::BEGIN@44.114
1	1	1	11µs	11µs	Method::Generate::Accessor::_Generated::BEGIN@13.113

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $default_for_canonical_5furi = ${$_[1]->{"\$default_for_canonical_5furi"}};
3	1	0s			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
4	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
7					package JSON::Schema::Modern::Document;
8	2	68µs	2	85µs	# spent 50µs (15+35) within JSON::Schema::Modern::Document::BEGIN@8 which was called: # once (15µs+35µs) by Sub::Quote::_clean_eval at line 8 no warnings 'closure'; # spent 50µs making 1 call to JSON::Schema::Modern::Document::BEGIN@8 # spent 35µs making 1 call to warnings::unimport
9					# spent 593µs (328+265) within JSON::Schema::Modern::Document::canonical_uri which was called 62 times, avg 10µs/call: # 15 times (221µs+265µs) by JSON::Schema::Modern::Document::BUILD at line 145 of JSON/Schema/Modern/Document.pm, avg 32µs/call # 15 times (71µs+0s) by JSON::Schema::Modern::Document::BUILD at line 168 of JSON/Schema/Modern/Document.pm, avg 5µs/call # 14 times (10µs+0s) by JSON::Schema::Modern::Document::traverse at line 178 of JSON/Schema/Modern/Document.pm, avg 714ns/call # 8 times (12µs+0s) by JSON::Schema::Modern::add_schema at line 188 of JSON/Schema/Modern.pm, avg 2µs/call # 8 times (12µs+0s) by JSON::Schema::Modern::add_schema at line 196 of JSON/Schema/Modern.pm, avg 2µs/call # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 76 of JSON/Schema/Modern/Document/OpenAPI.pm # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 115 of JSON/Schema/Modern/Document/OpenAPI.pm sub canonical_uri {
10					($_QUOTED,$_UNQUOTED) if 0;
11					# BEGIN quote_sub PRELUDE
12					package Method::Generate::Accessor::_Generated;
13					# spent 11µs within Method::Generate::Accessor::_Generated::BEGIN@13.113 which was called: # once (11µs+0s) by Sub::Quote::_clean_eval at line 18 BEGIN {
14	1	4µs			$^H = 1762;
15	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
16	1	4µs			%^H = (
17					);
18	1	98µs	1	11µs	} # spent 11µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@13.113
19					# END quote_sub PRELUDE
20	62	26µs			Carp::croak("canonical_uri is a read-only accessor") if @_ > 1;
21					exists $_[0]->{"canonical_uri"} ?
22					$_[0]->{"canonical_uri"}
23	62	133µs			: do {
24	8	3µs			my $value = do {
25	8	23µs			local $Method::Generate::Accessor::CurrentAttribute = {
26					init_arg => undef(),
27					name => "canonical_uri",
28					step => "coercion",
29					};
30	8	9µs			(my $_return),
31					(my $_error), (my $_old_error = $@);
32	8	4µs			(eval {
33	8	29µs	16	242µs	($@ = $_old_error), # spent 140µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:39], avg 18µs/call # spent 102µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[JSON/Schema/Modern/Document.pm:38], avg 13µs/call
34					($_return =
35					$coerce_for_canonical_5furi->($default_for_canonical_5furi->($_[0]))),
36					1
37					} or
38					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
39	8	4µs			($@ = $_old_error),
40					(defined $_error and CORE::die $_error);
41	8	12µs			$_return;
42					}
43					;
44	42	215µs	26	63µs	# spent 26µs (12+14) within Method::Generate::Accessor::_Generated::BEGIN@44.114 which was called: # once (12µs+14µs) by Sub::Quote::_clean_eval at line 44 do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }; # spent 26µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@44.114 # spent 14µs making 1 call to warnings::unimport # spent 12µs making 8 calls to Mojo::URL::fragment, avg 2µs/call # spent 7µs making 8 calls to Scalar::Util::blessed, avg 875ns/call # spent 4µs making 8 calls to UNIVERSAL::isa, avg 500ns/call
45	8	5µs			$_[0]->{"canonical_uri"} = $value
46					}
47					}
48	1	1µs			$$_UNQUOTED = \&canonical_uri;
49					}
50	1	7µs			1;
51
52					;